Namespace BAL.Servicio
    Public Class Formulario
        Public Function Grabar(ByVal _Formulario As BEL.Servicio.Formulario) As System.Boolean
            Dim _dal As New DAL.Servicio.Formulario
            If _Formulario.EsNuevo Then
                Return _dal.Insertar(_Formulario)
            Else
                Return _dal.Modificar(_Formulario)
            End If
        End Function
        Public Function Listar(ByVal _Parametros As Object()) As DataTable
            Dim _dal As New DAL.Servicio.Formulario
            Return _dal.Listar(_Parametros)
        End Function
        Public Function Cargar(ByVal intId As System.Int32) As BEL.Servicio.Formulario
            Dim _dal As New DAL.Servicio.Formulario
            Return _dal.Cargar(intId)
        End Function
        Public Function Eliminar(ByVal intId As System.Int32) As System.Boolean
            Dim _dal As New DAL.Servicio.Formulario
            Return _dal.Eliminar(intId)
        End Function
    End Class
End Namespace